function meanerr(time,~,~,~,~,Y)

load('orthbase');

%exactmean=zeros(1,100);

exactmean=-1/4*time.^2;
%exactmean=-2*time';
hold on
plot(time,exactmean);
plot(time,Y,'r-');
title('Mean')
legend('exact mean','wce mean')
